home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / Mals_Source_Code.lha / Bloody_Good_Scroller.amos / Bloody_Good_Scroller.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-15  |  2KB  |  67 lines
  1. '
  2. '************************************************
  3. '
  4. '                 SCROLL TEXT  
  5. '             ---------------------
  6. '
  7. '            By Malcolm Lavery 1995
  8. '
  9. '************************************************
  10. '
  11. '
  12. Screen Open 0,320,20,8,Lowres
  13. Curs Off : Hide On : Flash Off : Cls 0
  14. Screen Display 0,,260,,
  15. Get Sprite Palette 
  16. Bob Update Off 
  17. '
  18. Screen Open 1,400,20,8,Lowres
  19. Curs Off : Hide On : Flash Off : Cls 0
  20. Screen Display 1,,260,,
  21. Get Palette 0
  22. Screen To Back 1
  23. Screen 1
  24. '
  25. Def Scroll 1,0,0 To 400,20,-6,0
  26. '
  27. TEX$="YET ANOTHER SCROLLTEXT ROUTINE BY YOURS AMOSLY MALCOLM LAVERY      THIS ONE ALLOWS YOU TO CHANGE THE SCROLLTEXT FROM WITHIN YOUR PROGRAM (TRY PRESSING THE SPACE BAR!) "
  28. TEX$=TEX$+"JUST BY CHANGING WHATS IN THE STRING (TEX$)   SIMPLE AINT IT???     THIS TIME THE FONT IS 8 COLOURS  JUST TO MAKE IT LOOK NICE!!!   "
  29. TEX$=TEX$+"AND I THINK YOU'LL AGREE IT BLOODY WELL DOSE  AND IT'S FAST AS WELL (BIG HEAD!)     "
  30. TEX$=TEX$+"AS USUALLY ALL THE CREDIT GOES TO ME!   BECAUSE I DONT KNOW ANY AMIGA OWNERS LET ALONE AMOSERS UP HERE IN CUMBRIA.....(POOR THING!)... "
  31. TEX$=TEX$+"SO OFF YOU JOLLY WELL GO AND PRODUCE SOME NICE INTRO/DEMO    YOU HAVE NO EXCUSE NOW!   HAVE YOU?????    "
  32. TEX$=TEX$+"WHAT DO YOU MEEN IT'S TIME TO GO BACK TO YOUR NICE AND SOFT PADDED ROOM?   I DONT WANT TO!    AHRRRR!    GET OFF!       OUTCH!.........                                     "
  33. '
  34. LE=Len(TEX$)
  35. PLACE=1 : TI=0
  36. Global TEX$,TI,PLACE,LE
  37. '
  38. Do 
  39.    '
  40.    _SCROLL_TEXT[TEX$]
  41.    '    
  42.    If Inkey$=" "
  43.       TEX$="             YOU PRESSED SPACE!!!         "
  44.       LE=Len(TEX$)
  45.       PLACE=1 : TI=0
  46.    End If 
  47.    '
  48. Loop 
  49. '
  50. Procedure _SCROLL_TEXT[TEX$]
  51.    '
  52.    If TI=3
  53.       If PLACE=LE
  54.          PLACE=1
  55.       End If 
  56.       A=Asc(Mid$(TEX$,PLACE,1))
  57.       Inc PLACE
  58.       Paste Bob 350,0,A-31
  59.       TI=0
  60.    End If 
  61.    Screen Copy 1,0,0,320,20 To Logic(0),0,0
  62.    Screen Swap 
  63.    Scroll 1
  64.    Wait Vbl 
  65.    Inc TI
  66.    If TI>3 : TI=0 : End If 
  67. End Proc